[vba] importazione automatica

Hai un problema con Excel?

Nuova discussione

[vba] importazione automatica
di Fabio (utente non iscritto) data: 27/01/2011
Ciao a tutti, ho creato la seguente macro in excel per modificare la sorgente da dove importa i dati csv.

tutto funziona bene, solo che ogni volta che eseguo la macro mi appare la finestra e sono costretto a cliccare sul tasto [importa] ... la macro esegue questa istruzione più di 400 volta per importare 400 files csv ... sarebbe bello che faccia il suo lavoro senza fermarsi ogni volta in attesa del mio click ... che dite ? è possibile ?

    With Selection.QueryTable
        .Connection = _
        "TEXT;.................csv"
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierNone
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
        , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileThousandsSeparator = ","
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=True
    End With

Vuoi Approfondire?